home *** CD-ROM | disk | FTP | other *** search
/ Amiga Packmags / NewsFlash - Issue 07 (1990-01)(UGA - 17-Bit Software)(Disk 1 of 2)[a].zip / NewsFlash - Issue 07 (1990-01)(UGA - 17-Bit Software)(Disk 1 of 2)[a].adf / doc / LED.DOC < prev    next >
Text File  |  1988-01-19  |  1KB  |  29 lines
  1. ----------------------------------------------------------------------
  2.              LEDS - Created for UGA PD by Brian Postma
  3. ----------------------------------------------------------------------
  4. start:     bchg        #1,$bfe001    ;Red Led On/Off
  5.      move.b        #127,$bfd100    ;Prepare Green Led
  6.      move.b        #119,$bfd100    ;is in fact drive select
  7.      eor.b        #255,$bfd300    ;motor=green led on/off
  8.      move.l        #100000000,d0   ;Delay
  9. loop:     btst        #6,$bfe001    ;Left Mouse Button Pressed
  10.      beq        quit        ;Yes ??
  11.      dbra        d0,loop     ;Wait a while
  12.      bra        start        ;and again
  13. quit:     bclr        #1,$bfe001    ;Red Led on
  14.      move.b        #255,$bfd300    ;Green Led off
  15.      rts                ;Bye
  16. ----------------------------------------------------------------------
  17. This little program shows how you can turn the red and the green (!)
  18. led on and off. This program was created on the seka assembler.
  19. Load it by typing 'r<CR>' followed by the filename (this is 'ALERT',
  20. seka adds extension .S). Now type 'a<CR><CR>' to assemble and type
  21. 'j<CR>' to start.
  22.  
  23. If you should have problems or questions, contact me..
  24.  
  25. Brian Postma
  26. J.v.Hartenstraat 51
  27. 7576VX Oldenzaal (NL)
  28. Tel:05410-14763
  29.